home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / All_In_One2073016282007.psc / All In One Math / frmmain.frm < prev    next >
Text File  |  2007-06-26  |  2KB  |  53 lines
  1. VERSION 5.00
  2. Begin VB.Form frmmain 
  3.    Caption         =   "All In One Math"
  4.    ClientHeight    =   3195
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4680
  8.    Icon            =   "frmmain.frx":0000
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3195
  11.    ScaleWidth      =   4680
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.ListBox lstmath 
  14.       Height          =   1620
  15.       ItemData        =   "frmmain.frx":0BC2
  16.       Left            =   600
  17.       List            =   "frmmain.frx":0BD5
  18.       TabIndex        =   0
  19.       Top             =   840
  20.       Width           =   3255
  21.    End
  22.    Begin VB.Label Label1 
  23.       Caption         =   "Double click which math application you would like to use...."
  24.       Height          =   375
  25.       Left            =   840
  26.       TabIndex        =   1
  27.       Top             =   360
  28.       Width           =   2655
  29.    End
  30. End
  31. Attribute VB_Name = "frmmain"
  32. Attribute VB_GlobalNameSpace = False
  33. Attribute VB_Creatable = False
  34. Attribute VB_PredeclaredId = True
  35. Attribute VB_Exposed = False
  36. Private Sub lstmath_DblClick()
  37. If lstmath.Text = "Three Variable System Of Equations Solver" Then
  38. frmTVSOEPS.Show
  39. End If
  40. If lstmath.Text = "Two Variable System Of Equations Solver" Then
  41. frmtwovariable.Show
  42. End If
  43. If lstmath.Text = "Quadratic Equation Solver" Then
  44. frmquad.Show
  45. End If
  46. If lstmath.Text = "Graph" Then
  47. frmgraph.Show
  48. End If
  49. If lstmath.Text = "Simple Calculator" Then
  50. frmcalc.Show
  51. End If
  52. End Sub
  53.